home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: R-H-S / R-H-S Tools 15 (19xx)(Reiner Hobbold Software)(DE)(PD).zip / R-H-S Tools 15 (19xx)(Reiner Hobbold Software)(DE)(PD).adf / video_v1.00 (.txt) < prev    next >
AmigaBASIC Source Code  |  1989-04-27  |  29KB  |  1,149 lines
  1.  
  2. REM ************************************
  3. REM *                                  *
  4. REM *   V I D E O V E R W A L T U N G  *
  5. REM *                                  *
  6. REM *       (C) copyright 1988 by      *
  7. REM *                                  *
  8. REM *          Michael  Junker         *
  9. REM *                                  *
  10. REM ************************************
  11. CLEAR ,80000
  12. SCREEN 2,640,250,4,2
  13. WINDOW 2,"",,0,2
  14. DIM Ftit$(250),Fummer$(250),Bem$(250)
  15.  
  16.  Anfang:
  17.    FOR x=0 TO 15
  18.     PALETTE x,0,0,0
  19.    NEXT x 
  20.   COLOR 0,0 : CLS : COLOR 5,6 : i=5 : Nr=1
  21.   LINE (10,10)-(630,60),6,bf
  22.   LINE (20,20)-(620,50),5,b
  23.   CIRCLE ( 55,35),10,4 : CIRCLE (580,35),10,4
  24.   CIRCLE ( 85,35),10,4 : CIRCLE (550,35),10,4
  25.   CIRCLE (115,35),10,4 : CIRCLE (520,35),10,4
  26.   CIRCLE (145,35),10,4 : CIRCLE (490,35),10,4
  27.   CIRCLE (175,35),10,4 : CIRCLE (460,35),10,4
  28.   LOCATE 5,26 : PRINT " V I D E O D A T E I    V1.01 "
  29.   LOCATE 6,28 : PRINT " © Copyright by M. Junker "
  30.  
  31.    Anfang1:
  32.       GOSUB Recorder : COLOR 7,0
  33.       FOR x=0 TO 250 : NEXT x      
  34.       LINE ( 66,137)-(556,157),4,bf
  35.       LINE ( 66,161)-(556,181),4,bf
  36.       LINE ( 66,185)-(556,205),4,bf     
  37.       LINE ( 70,140)-(550,154),5,b
  38.       LINE ( 70,164)-(550,178),5,b
  39.       LINE ( 70,188)-(550,202),5,b
  40.       LINE (222,140)-(222,154),5 
  41.       LINE (368,140)-(368,154),5
  42.       LINE (222,165)-(222,178),5
  43.       LINE (368,165)-(368,178),5      
  44.       LINE (222,202)-(222,188),5
  45.       LINE (368,202)-(368,188),5 
  46.       COLOR 7,4
  47.       LOCATE 19,12 : PRINT "Datei Sortieren"
  48.       LOCATE 19,30 : PRINT "    f r e i    "
  49.       LOCATE 19,51 : PRINT "Etikett drucken"
  50.       LOCATE 22,13 : PRINT "Daten löschen"
  51.       LOCATE 22,32 : PRINT "Daten suchen"
  52.       LOCATE 22,51 : PRINT "Datei Editieren"
  53.       LOCATE 25,16 : PRINT "Eingaben"   
  54.       LOCATE 25,32 : PRINT "Datei zeigen"
  55.       LOCATE 25,52 : PRINT "Datei drucken"
  56.       GOSUB Farbdef 
  57.       ON BREAK GOSUB ente
  58.       BREAK ON
  59.  
  60.   Maus:
  61.       ON MOUSE GOSUB Start
  62.       COLOR 5,8 : LOCATE 13,23 : PRINT TIME$
  63.       MOUSE ON
  64.       GOTO Maus
  65.   
  66.   Start:   
  67.       Maus=MOUSE(0)
  68.       y=MOUSE(1) : x= MOUSE(2)            
  69.       IF x>141 AND x<154 AND y> 73 AND y<224 THEN Datsort
  70.       IF x>141 AND x<154 AND y>226 AND y<340 THEN Maus
  71.       IF x>141 AND x<154 AND y>371 AND y<553 THEN Etidruck
  72.       IF x>166 AND x<180 AND y> 73 AND y<224 THEN Datlosch
  73.       IF x>166 AND x<180 AND y>371 AND y<552 THEN Dated      
  74.       IF x>166 AND x<180 AND y>226 AND y<371 THEN Datsuch
  75.       IF x>190 AND x<203 AND y> 73 AND y<224 THEN Eingaben
  76.       IF x>190 AND x<203 AND y>227 AND y<372 THEN Zeigen
  77.       IF x>190 AND x<203 AND y>374 AND y<553 THEN Drucken      
  78.       IF x>111 AND x<122 AND y>106 AND y<133 THEN Allesende      
  79.       RETURN
  80.      
  81.   Drucken:
  82.       FOR x=0 TO 15
  83.       PALETTE x,0,0,0
  84.       NEXT x
  85.       COLOR 0,0 : CLS :  COLOR 5,6  : Nr=1
  86.       LINE (110,10)-(500,40),6,bf
  87.       LINE (120,15)-(490,35),5,b
  88.       LOCATE 4,32 :PRINT "Drucker Modus !"
  89.       LINE (100, 50)-(510, 50)  
  90.       LINE (100, 50)-(100,140)
  91.       LINE (510, 50)-(510,140)
  92.       LINE (100,140)-(220,120)
  93.       LINE (220,120)-(510,140)
  94.       LINE (120, 50)-(120,137)
  95.       LINE (490, 50)-(490,139)
  96.       FOR g=55 TO 138 STEP 8 
  97.       CIRCLE (110,g),3
  98.       NEXT g 
  99.       FOR g=55 TO 138 STEP 8 
  100.       CIRCLE (500,g),3
  101.       NEXT g 
  102.       PAINT (140,80),7,5 : PAINT (110,100),7,5 : PAINT (495,80),7,5
  103.       COLOR 5,7
  104.       LOCATE  8,30 : PRINT "V I D E O L I S T E"
  105.       LOCATE 10,34 : PRINT DATE$                           
  106.       LOCATE 12,17 : PRINT "Lfd   |   Filmtitel   | Cassnr. |  Bemerkung"
  107.       LOCATE 13,17 : PRINT "---------------------------------------------"
  108.       LOCATE 14,17 : PRINT " 1     Der Joker         123      gesehen "
  109.       LOCATE 15,17 : PRINT " 2     Schneewitchen     432      Kinderfilm"
  110.       LOCATE 16,17 : PRINT " 3 "
  111.       LOCATE 16,42 : PRINT " 41      Horror"
  112.       COLOR 4,0
  113.   
  114.     Anfang5:
  115.       FOR x=0 TO 250 : NEXT x
  116.       LINE ( 66,205)-(556,185),4,bf
  117.       LINE (215,160)-(375,180),4,bf
  118.       LINE (222,163)-(368,178),5,b
  119.       LINE ( 70,202)-(550,188),5,b
  120.       LINE (222,202)-(222,188),5
  121.       LINE (368,202)-(368,188),5 : COLOR 7,4
  122.       LOCATE 22,34 : PRINT "Zurück !"
  123.       LOCATE 25,12 : PRINT "Draft-Ausdruck"   
  124.       LOCATE 25,32 : PRINT "NLQ-Ausdruck"
  125.       LOCATE 25,49 : PRINT "Tiefschwarzdruck !"
  126.       GOSUB Farbdef: GOSUB Vorhanden 
  127.       IF vorhand=1 THEN
  128.       BEEP
  129.       COLOR 5,0 : LOCATE 20,10 : PRINT  " ... he Baby ! Erst was eingeben und dann Drucken !!!"
  130.       FOR z=0 TO 4000 : NEXT z : COLOR 0,0 : GOTO Anfang
  131.       END IF
  132.       
  133.     Maus1:
  134.       ON MOUSE GOSUB Start1
  135.       COLOR 4,7 : LOCATE 9,35 : PRINT TIME$
  136.       MOUSE ON
  137.       GOTO Maus1
  138.  
  139.     Start1:
  140.       Maus=MOUSE(0)
  141.       y=MOUSE(1) : x= MOUSE(2)
  142.       IF x>190 AND x<203 AND y> 73 AND y<224 THEN Druck=1 : GOTO Nlq
  143.       IF x>190 AND x<203 AND y>227 AND y<372 THEN Druck=2 : GOTO Nlq
  144.       IF x>190 AND x<203 AND y>374 AND y<553 THEN Tiefschwarzdruck 
  145.       IF x>164 AND x<179 AND y>226 AND y<371 THEN COLOR 0,0 : CLOSE 1 : GOTO Anfang
  146.       GOTO Start1
  147.  
  148.     Nlq:
  149.       Nr=1 : Blattende=10 : s=1
  150.       OPEN "Video" FOR INPUT AS 1
  151.       OPEN "par:" FOR OUTPUT AS 2
  152.       IF Druck=2 THEN PRINT#2,CHR$(27);"x1" 
  153.       PRINT#2,CHR$(14)"            Videoliste  "
  154.       PRINT#2,"                              Blatt:"s
  155.       PRINT#2,"" : PRINT#2,"                         Stand: "DATE$ : PRINT#2,""      
  156.       PRINT#2,"  Lfd.Nr.|          Filmtitel             | Cassnr.|    Bemerkung   "
  157.       PRINT#2,"---------------------------------------------------------------------"   
  158.     
  159.     Einlesen2:   
  160.       INPUT#1,Ftit$ : INPUT#1,Fummer$ : INPUT#1,Bem$
  161.       Nr$=STR$(Nr)
  162.       a$=" " : x=LEN(Ftit$) : z=30-x
  163.       FOR w=0 TO z : Ftit$=Ftit$+a$ : NEXT w
  164.       a$=" " : x=LEN(Fummer$) : z=3-x
  165.       FOR w=0 TO z : Fummer$=Fummer$+a$ : NEXT w
  166.       a$=" " : x=LEN(Bem$) : z=17-x
  167.       FOR w=0 TO z : Bem$=Bem$+a$ : NEXT w
  168.       a$=" " : x=LEN(Nr$) : z=3-x
  169.       FOR w=0 TO z : Nr$=a$+Nr$ : NEXT w
  170.       PRINT#2," "Nr$"     "Ftit$"  "Fummer$"     "Bem$
  171.       Nr=Nr+1 
  172.       Blattende=Blattende+1 
  173.         IF Blattende>59 THEN 
  174.          s=s+1
  175.          FOR t=0 TO 14 : PRINT#2,"" : NEXT t
  176.          PRINT#2,CHR$(14)"            Videoliste  "
  177.          PRINT#2,"                              Blatt:"s
  178.          PRINT#2,"" : PRINT#2,"                         Stand: "DATE$ : PRINT#2,""      
  179.          PRINT#2,"  Lfd.Nr.|          Filmtitel             | Cassnr.|    Bemerkung   "
  180.          PRINT#2,"---------------------------------------------------------------------"   
  181.          Blattende=10
  182.         END IF 
  183.       IF EOF(1)=0 THEN Einlesen2
  184.       FOR i=0 TO 3 : BEEP : NEXT i
  185.       PRINT#2,CHR$(27);"x0" : CLOSE 1,2 : COLOR 0,0 : GOTO Maus1
  186.  
  187.     Tiefschwarzdruck:
  188.       Nr=1  : Blattende=10 : s=1
  189.       OPEN "Video" FOR INPUT AS 1
  190.       OPEN "par:" FOR OUTPUT AS 2
  191.       PRINT#2,CHR$(27);"G";
  192.       FOR i=0 TO 3
  193.       PRINT#2,CHR$(14)"            Videoliste  ";
  194.       PRINT#2,CHR$(13);: NEXT i 
  195.       PRINT#2,""
  196.       FOR i=0 TO 3
  197.       PRINT#2,"                              Blatt:"s;
  198.       PRINT#2,CHR$(13);: NEXT i 
  199.       PRINT#2,"" : PRINT#2,"" 
  200.       FOR i=0 TO 3
  201.       PRINT#2,"                         Stand: "DATE$ ;
  202.       PRINT#2,CHR$(13);:NEXT i
  203.       PRINT#2,"":PRINT#2,""
  204.       FOR i=0 TO 3
  205.       PRINT#2,"  Lfd.Nr.|          Filmtitel             | Cassnr.|    Bemerkung   ";
  206.       PRINT#2,CHR$(13);:NEXT i
  207.       PRINT#2,""
  208.       FOR i=0 TO 3 
  209.       PRINT#2,"---------------------------------------------------------------------";   
  210.       PRINT#2,CHR$(13);:NEXT i : PRINT#2,""
  211.           
  212.     Einlesen3:   
  213.       INPUT#1,Ftit$ : INPUT#1,Fummer$ : INPUT#1,Bem$
  214.       Nr$=STR$(Nr)
  215.       a$=" " : x=LEN(Ftit$) : z=30-x
  216.       FOR w=0 TO z : Ftit$=Ftit$+a$ : NEXT w
  217.       a$=" " : x=LEN(Fummer$) : z=3-x
  218.       FOR w=0 TO z : Fummer$=Fummer$+a$ : NEXT w
  219.       a$=" " : x=LEN(Bem$) : z=17-x
  220.       FOR w=0 TO z : Bem$=Bem$+a$ : NEXT w
  221.       a$=" " : x=LEN(Nr$) : z=3-x
  222.       FOR w=0 TO z : Nr$=a$+Nr$ : NEXT w
  223.       FOR i=0 TO 3
  224.       PRINT#2,"   "Nr$"     "Ftit$"  "Fummer$"      "Bem$;
  225.       PRINT#2,CHR$(13);:NEXT i : PRINT#2,""
  226.       Nr=Nr+1
  227.       Blattende=Blattende+1 
  228.         IF Blattende>59 THEN 
  229.           s=s+1
  230.           FOR t=0 TO 14 : PRINT#2,"" : NEXT t
  231.           PRINT#2,CHR$(27);"G";
  232.           FOR i=0 TO 3
  233.           PRINT#2,CHR$(14)"            Videoliste  ";
  234.           PRINT#2,CHR$(13);: NEXT i     
  235.           PRINT#2,""
  236.           FOR i=0 TO 3
  237.           PRINT#2,"                              Blatt:"s;
  238.           PRINT#2,CHR$(13);: NEXT i 
  239.           PRINT#2,"" : PRINT#2,""
  240.           FOR i=0 TO 3
  241.           PRINT#2,"                         Stand: "DATE$ ;
  242.           PRINT#2,CHR$(13);:NEXT i
  243.           PRINT#2,"":PRINT#2,""
  244.           FOR i=0 TO 3
  245.           PRINT#2,"  Lfd.Nr.|          Filmtitel             | Cassnr.|    Bemerkung   ";
  246.           PRINT#2,CHR$(13);:NEXT i
  247.           PRINT#2,""
  248.           FOR i=0 TO 3 
  249.           PRINT#2,"---------------------------------------------------------------------";   
  250.           PRINT#2,CHR$(13);:NEXT i : PRINT#2,""
  251.           Blattende=10
  252.          END IF 
  253.       IF EOF(1)=0 THEN Einlesen3
  254.       FOR i=0 TO 3 : BEEP : NEXT i
  255.       PRINT#2,CHR$(27);"H" : CLOSE 1,2 : COLOR 0,0 : GOTO Maus1
  256.  
  257.   Eingaben:
  258.       OPEN "Video" FOR APPEND AS 1
  259.       FOR x=0 TO 15
  260.       PALETTE x,0,0,0
  261.       NEXT x 
  262.       COLOR 0,0 : CLS :  COLOR 4,6 
  263.       LINE (110,10)-(510,40),6,bf
  264.       LINE (120,15)-(500,35),5,b
  265.       LINE (110,10)-(510,42),6,bf
  266.       LINE (120,15)-(500,37),5,b 
  267.       LOCATE 4,31 : PRINT "Eingabe Modus !"     
  268.       COLOR 5,4
  269.       LINE ( 66,162)-(556,181),4,bf 
  270.       LINE ( 70,179)-(550,164),5,b
  271.       LINE (222,179)-(222,164),5
  272.       LINE (368,179)-(368,164),5         
  273.    
  274.    Eingabe3:
  275.       COLOR 5,4 : daten=0
  276.       LOCATE 22,13 : PRINT "OK! Speichern"
  277.       LOCATE 22,30 : PRINT "    Eingabe !   "
  278.       LOCATE 22,50 : PRINT "zurück Hauptmenue"
  279.       COLOR 14,0
  280.       LOCATE 12,5 : PRINT " Film Titel       : .............................."
  281.       LOCATE 14,5 : PRINT " Cassetten Nummer : ..."
  282.       LOCATE 16,5 : PRINT " Bemerkung        : ................."     
  283.       COLOR 8,0
  284.       GOSUB Farbdef
  285.    
  286.    Eingabemaus1:
  287.       ON MOUSE GOSUB Eingabestart1
  288.       COLOR 4,0 : LOCATE 24,34 : PRINT TIME$
  289.       MOUSE ON
  290.       GOTO Eingabemaus1
  291.   
  292.    Eingabestart1:   
  293.       Maus=MOUSE(0)
  294.       y=MOUSE(1) : x= MOUSE(2)
  295.       IF x>166 AND x<180 AND y>226 AND y<370 THEN Eingaben1      
  296.       IF x>166 AND x<180 AND y>371 AND y<552 THEN CLOSE 1 : GOTO Anfang
  297.       RETURN
  298.    
  299.     Eingaben1:
  300.      COLOR 7,0
  301.      LOCATE 12,24 : PRINT " .............................."
  302.      LOCATE 14,24 : PRINT " ..."
  303.      LOCATE 16,24 : PRINT " ................."
  304.      LOCATE 12,25 : LINE INPUT "",Ftit$
  305.      IF Ftit$="" THEN Ausgabe
  306.      LOCATE 14,25 : LINE INPUT "",Fummer$
  307.      LOCATE 16,25 : LINE INPUT "",Bem$
  308.      daten=1 : COLOR 5,4
  309.      LOCATE 22,30 : PRINT "falsche Eingabe!"
  310.      COLOR 14,0
  311.       
  312.    Eingabemaus:
  313.      ON MOUSE GOSUB Eingabestart
  314.      MOUSE ON
  315.      GOTO Eingabemaus
  316.   
  317.    Eingabestart:   
  318.      Maus=MOUSE(0)
  319.      y=MOUSE(1) : x= MOUSE(2)
  320.      IF x>165 AND x<180 AND y> 73 AND y<224 THEN Speichern
  321.      IF x>166 AND x<180 AND y>226 AND y<370 THEN Eingaben1      
  322.      IF x>166 AND x<180 AND y>371 AND y<552 THEN CLOSE 1 : GOTO Anfang
  323.      RETURN
  324.  
  325.    Speichern:
  326.      IF daten=0 THEN Eingabe3
  327.      PRINT#1,Ftit$
  328.      PRINT#1,Fummer$
  329.      PRINT#1,Bem$                                          
  330.      GOTO Eingabe3
  331.    
  332.   Zeigen:
  333.      FOR x=0 TO 15
  334.      PALETTE x,0,0,0
  335.      NEXT x    
  336.      COLOR 0,0 : CLS :  COLOR 5,6 : Nr=1
  337.      LINE (110,10)-(510,37),6,bf
  338.      LINE (120,15)-(500,32),5,b
  339.      COLOR 4,6
  340.      LOCATE 4,33 :PRINT "DATEI ZEIGEN !"                                                
  341.      LOCATE 6,3 : COLOR 9,6 : PRINT" Lfd.Nr     Filmtitel                        Cass.Nr    Bemerkung          "
  342.      GOSUB Linien : GOSUB Sauber1 : y=8 : GOSUB Farbdef
  343.      GOSUB Vorhanden 
  344.      IF vorhand=1 THEN
  345.      BEEP
  346.      COLOR 5,7 : LOCATE 20,10 : PRINT  " ... he Baby ! Erst was eingeben und zeigen lassen !!!"
  347.      FOR z=0 TO 4000 : NEXT z : COLOR 0,0 : GOTO Anfang
  348.      END IF
  349.      OPEN "Video" FOR INPUT AS 1
  350.   
  351.   Zeig1:
  352.      COLOR 5,7
  353.      INPUT#1,Ftit$ : INPUT#1,Fummer$ : INPUT#1,Bem$
  354.      Nr$=STR$(Nr)
  355.      a$=" " : x=LEN(Ftit$) : z=30-x
  356.      FOR w=0 TO z : Ftit$=Ftit$+a$ : NEXT w
  357.      a$=" " : x=LEN(Fummer$) : z=3-x
  358.      FOR w=0 TO z : Fummer$=Fummer$+a$ : NEXT w
  359.      a$=" " : x=LEN(Bem$) : z=17-x
  360.      FOR w=0 TO z : Bem$=Bem$+a$ : NEXT w
  361.      a$=" " : x=LEN(Nr$) : z=3-x
  362.      FOR w=0 TO z : Nr$=a$+Nr$ : NEXT w
  363.      LOCATE y,3 : PRINT"  "Nr$"      "Ftit$"  "Fummer$"       "Bem$
  364.      Nr=Nr+1 : y=y+2 
  365.      IF y>27 THEN GOSUB Warte : y=8 
  366.      IF EOF(1)=0 THEN Zeig1
  367.      COLOR 4,7 : LOCATE y,17 : PRINT "ENDE DER DATEI - PRESS SPACE TO CONTINUE ! " : COLOR 5,7
  368.      GOSUB Warte1 : CLOSE 1 : GOTO Anfang 
  369.          
  370.    Warte:
  371.      COLOR 4,7 
  372.      LOCATE y,15 : PRINT "Space um weiter einzulesen linke Maus zum beenden !!!" :GOSUB Warte1
  373.      GOSUB Sauber1 : COLOR 5,6 : RETURN
  374.    
  375.   Warte1:
  376.      ON MOUSE GOSUB Beenden
  377.      MOUSE ON
  378.      IF INKEY$="" THEN Warte1
  379.      RETURN        
  380.    Beenden:
  381.      CLOSE 1: GOTO Anfang
  382.      RETURN
  383.        
  384.   Sauber1:
  385.     y=8 : COLOR 8,7
  386.     FOR i=0 TO 10
  387.     LOCATE y,3 : PRINT SPACE$(75)               
  388.     y=y+2 : NEXT i
  389.     RETURN
  390.   
  391.   Linien:
  392.     p=16 : q=39 : r=617 : s=48 :i=10
  393.     FOR f=0 TO 3
  394.     LINE (p,q)-(r,s),4,b
  395.     p=p-2 : q=q-1 : r=r+2 : s=s+1 : i=i+0.1
  396.     NEXT f
  397.     LINE (13, 54)-(620, 65),4,bf
  398.     LINE (13, 70)-(620, 81),4,bf
  399.     LINE (13, 86)-(620, 97),4,bf
  400.     LINE (13,102)-(620,113),4,bf
  401.     LINE (13,118)-(620,129),4,bf
  402.     LINE (13,134)-(620,145),4,bf
  403.     LINE (13,150)-(620,161),4,bf
  404.     LINE (13,166)-(620,177),4,bf
  405.     LINE (13,182)-(620,193),4,bf
  406.     LINE (13,198)-(620,209),4,bf
  407.     LINE (13,214)-(620,225),4,bf
  408.     RETURN
  409.    
  410.   Recorder:
  411.     LINE ( 95, 85)-(530,125),14,bf  
  412.     COLOR 9,14
  413.     LOCATE 12,41 : PRINT " 1  2  3  4  5  6  7  8 "
  414.     LOCATE 15,20 : PRINT "VHS-HIFI-VIDEO"
  415.     LINE (101,110)-(130,120),4,bf : COLOR 5,4
  416.     LINE (101,110)-(131,120),5,b
  417.     LOCATE 15,14 : PRINT "OFF"
  418.     COLOR 5,14
  419.     LOCATE 15,41 : PRINT " PLAY REW FFW STOP PAUSE"
  420.     CIRCLE (331,100),6 
  421.     LINE (110, 90)-(300,105),8,bf : CIRCLE (355,100),6
  422.     LINE (112, 91)-(298,104),9,b
  423.     LINE (138,110)-(274,120),5,b  : CIRCLE (379,100),6    
  424.     LINE (325,110)-(362,120),5,b  : CIRCLE (403,100),6     
  425.     LINE (367,110)-(393,120),5,b  : CIRCLE (427,100),6
  426.     LINE (397,110)-(426,120),5,b  : CIRCLE (451,100),6
  427.     LINE (430,110)-(465,120),5,b  : CIRCLE (476,100),6
  428.     LINE (470,110)-(515,120),5,b  : CIRCLE (500,100),6
  429.     RETURN
  430.  
  431.   Farbdef:      
  432.     PALETTE  0,0,0,1
  433.     PALETTE  1,0,0,1
  434.     PALETTE  2,0,0,1
  435.     PALETTE  3,0,0,1
  436.     PALETTE  4,1,0,0
  437.     PALETTE  5,0,0,0
  438.     PALETTE  6,0.1,0.8,0.8
  439.     PALETTE  7,1,1,1
  440.     PALETTE  8,0.8,0.8,0.8
  441.     PALETTE  9,0,0,0.6
  442.     PALETTE 10,0,0,0
  443.     PALETTE 11,0,0,0
  444.     PALETTE 12,0,0,0
  445.     PALETTE 13,0,0,0
  446.     PALETTE 14,0.5,0.5,0.5
  447.     PALETTE 15,RND,RND,RND
  448.     RETURN
  449.        
  450.   Dated:
  451.     losch1=1 : daten=0
  452.     FOR x=0 TO 15
  453.     PALETTE x,0,0,0
  454.     NEXT x
  455.     COLOR 0,0 : CLS
  456.     LINE (110,10)-(510,37),6,bf
  457.     LINE (120,15)-(500,32),5,b
  458.     COLOR 4,6
  459.     LINE (110,10)-(510,40),6,bf
  460.     LINE (120,15)-(500,35),5,b
  461.     LINE (110,10)-(510,42),6,bf
  462.     LINE (120,15)-(500,37),5,b
  463.     LOCATE 4,32 :PRINT "DATEN EDITIEREN!"
  464.     COLOR 5,4
  465.     LINE ( 66,162)-(556,181),4,bf 
  466.     LINE ( 70,179)-(550,164),5,b
  467.     LINE (222,179)-(222,164),5
  468.     LINE (368,179)-(368,164),5         
  469.     LOCATE 22,13 : PRINT "OK! Speichern"  
  470.     LOCATE 22,30 : PRINT "  Editieren !   "
  471.     LOCATE 22,50 : PRINT "zurück Hauptmenue"                          
  472.     
  473.   Ein3:
  474.     COLOR 5,0
  475.     LINE (188,134)-(452,145),6,b
  476.     LINE (188,100)-(452,130),7,bf
  477.     LINE (187, 99)-(453,131),5,b
  478.     LOCATE 18,13 : PRINT " Editor :"
  479.     LOCATE 14,10 : PRINT "Filmtitel   :"
  480.     LOCATE 15,10 : PRINT "Cassetten Nr:"
  481.     LOCATE 16,10 : PRINT "Bemerkung   :"
  482.     GOSUB Farbdef
  483.  
  484.   Ein4:
  485.     GOSUB Vorhanden 
  486.     IF vorhand=1 THEN 
  487.     BEEP : COLOR 5,0 : LOCATE 10,25 : PRINT " ... keine Daten vorhanden  ...!!!             "
  488.     FOR z=0 TO 4000 : NEXT z : GOTO Anfang 
  489.     END IF
  490.     GOSUB Einlesenneu 
  491.   
  492.   Datedmaus:
  493.     ON MOUSE GOSUB Datedstart
  494.     COLOR 4,0 : LOCATE 24,34 : PRINT TIME$
  495.     MOUSE ON
  496.     GOTO Datedmaus
  497.   
  498.   Datedstart:   
  499.     Maus=MOUSE(0)
  500.     y=MOUSE(1) : x= MOUSE(2)
  501.     IF x>165 AND x<180 AND y> 73 AND y<224 THEN Datedspeichern
  502.     IF x>166 AND x<180 AND y>226 AND y<370 THEN Editieren      
  503.     IF x>166 AND x<180 AND y>371 AND y<552 THEN CLOSE 1 : GOTO Anfang
  504.     RETURN
  505.   
  506.   Datedmaus1:
  507.     ON MOUSE GOSUB Datedstart1
  508.     COLOR 4,0 : LOCATE 24,34 : PRINT TIME$
  509.     MOUSE ON
  510.     GOTO Datedmaus1
  511.   
  512.   Datedstart1:   
  513.     Maus=MOUSE(0)
  514.     y=MOUSE(1) : x= MOUSE(2)
  515.     IF x>165 AND x<180 AND y> 73 AND y<224 THEN Datedspeichern
  516.     IF x>166 AND x<180 AND y>226 AND y<370 THEN Schreibneu      
  517.     IF x>166 AND x<180 AND y>371 AND y<552 THEN Anfang
  518.     RETURN
  519.   
  520.   Schreibneu: 
  521.     COLOR 5,4
  522.     LOCATE 22,30 : PRINT "  Editieren !  "
  523.     COLOR 3,7
  524.     LOCATE 14,25 : PRINT SPACE$(28)
  525.     LOCATE 15,25 : PRINT SPACE$(28)
  526.     LOCATE 16,25 : PRINT SPACE$(28)
  527.     COLOR 0,0
  528.     LOCATE  8,17 : PRINT SPACE$(50)
  529.     LOCATE 10,16 : PRINT SPACE$(50)
  530.     GOTO Datedmaus
  531.   
  532.   Editieren:
  533.     COLOR 5,4
  534.     LOCATE 22,30 : PRINT "  Editieren !  "
  535.     COLOR 5,0
  536.     LOCATE  8,17 : PRINT " Es befinden sich"losch1"Datensätze im Speicher !"
  537.     LOCATE 10,16 : INPUT "  Welcher Datensatz soll Editiert werden(Nr.) :",losch
  538.     IF losch<1 OR losch>losch1 THEN BEEP : GOTO Editieren2 
  539.     GOTO Editieren3
  540.      
  541.   Editieren2:   
  542.      LOCATE 10,13 : PRINT" ... Datensatz mit dieser Nummer existiert nicht !   "
  543.      FOR v=0 TO 2500 : NEXT v                                
  544.      LOCATE 10,13 : PRINT SPACE$(57)                       
  545.      GOTO Editieren
  546.   
  547.   Editieren3:                              
  548.      COLOR 5,4
  549.      LOCATE 22,30 : PRINT "    zurück !    "
  550.      COLOR 5,7 
  551.      LOCATE 14,25 : z=LEN(Ftit$(losch)) : PRINT Ftit$(losch)+SPACE$(32-z)
  552.      LOCATE 15,25 : PRINT Fummer$(losch)+SPACE$(26)
  553.      LOCATE 16,25 : PRINT Bem$(losch)+SPACE$(15)
  554.      COLOR 5,0
  555.      LOCATE 18,12 : COLOR 4,0 : PRINT  "Filmtitel :" : COLOR 5,0      
  556.      LOCATE 18,25 : INPUT "",a$ : IF a$<>"" THEN Ftit$(losch)=a$   : a$=""
  557.      LOCATE 18,25 : PRINT SPACE$(32)  : COLOR 5,7
  558.      LOCATE 14,25 : PRINT Ftit$(losch)+SPACE$(32-LEN(Ftit$(losch))): COLOR 5,0
  559.      LOCATE 18,12 : COLOR 4,0 : PRINT  "Cass.Nr.  :" : COLOR 5,0
  560.      LOCATE 18,25 : INPUT "",b$ : IF b$<>"" THEN Fummer$(losch)=b$ : b$=""
  561.      LOCATE 18,25 : PRINT SPACE$(32)  : COLOR 5,7
  562.      LOCATE 15,25 : PRINT Fummer$(losch)+SPACE$(32-LEN(Fummer$(losch))) : COLOR 5,0
  563.      LOCATE 18,12 : COLOR 4,0 : PRINT  "Bemerkung :" : COLOR 5,0 
  564.      LOCATE 18,25 : INPUT "",c$ : IF c$<>"" THEN Bem$(losch)=c$    : c$=""
  565.      LOCATE 18,25 : PRINT SPACE$(32)  : COLOR 5,7
  566.      LOCATE 16,25 : PRINT Bem$(losch)+SPACE$(32-LEN(Bem$(losch))) : COLOR 5,0
  567.      COLOR 5,0 : daten=1 : LOCATE 18,12 : PRINT "Editor    :" : GOTO Datedmaus1
  568.                                                  
  569.   Datedspeichern:
  570.      IF daten=0 THEN Datedmaus  
  571.      KILL "Video"
  572.      OPEN "Video" FOR APPEND AS 1
  573.      neu2=1
  574.      
  575.   Fertig2:   
  576.      IF neu2>losch1 THEN 
  577.       COLOR 5,4
  578.       LOCATE 22,30 : PRINT "  Editieren !  "
  579.       COLOR 3,7
  580.       LOCATE 14,25 : PRINT SPACE$(28)
  581.       LOCATE 15,25 : PRINT SPACE$(28)
  582.       LOCATE 16,25 : PRINT SPACE$(28)
  583.       COLOR 0,0
  584.       LOCATE  8,17 : PRINT SPACE$(50)
  585.       LOCATE 10,16 : PRINT SPACE$(50)
  586.       GOTO Datedmaus
  587.      END IF
  588.      PRINT#1,Ftit$(neu2)
  589.      PRINT#1,Fummer$(neu2)
  590.      PRINT#1,Bem$(neu2)
  591.      neu2=neu2+1 : GOTO Fertig2
  592.      RETURN
  593.      
  594.   Datlosch:
  595.      losch1=1 
  596.      FOR x=0 TO 15
  597.      PALETTE x,0,0,0
  598.      NEXT x
  599.      COLOR 0,0 : CLS
  600.      LINE (110,10)-(510,42),6,bf
  601.      LINE (120,15)-(500,37),5,b
  602.      COLOR 5,4
  603.      LINE ( 66,162)-(556,181),4,bf 
  604.      LINE ( 70,179)-(550,164),5,b
  605.      LINE (222,179)-(222,164),5
  606.      LINE (368,179)-(368,164),5 
  607.      LOCATE 22,13 : PRINT "   Löschen "
  608.      LOCATE 22,31 : PRINT "Nummer eingeben"
  609.      LOCATE 22,50 : PRINT "zurück Hauptmenue"
  610.      
  611.      COLOR 4,6
  612.      LOCATE 4,33 :PRINT "DATEN LÖSCHEN!"
  613.      COLOR 5,7
  614.      LINE (100,95)-(540,135),5,bf
  615.      COLOR 7,5
  616.      LOCATE 14,16 : PRINT "Filmtitel   :"
  617.      LOCATE 15,16 : PRINT "Cassetten Nr:"
  618.      LOCATE 16,16 : PRINT "Bemerkung   :"
  619.      COLOR 5,7 
  620.      LOCATE 14,30 : PRINT SPACE$(34)
  621.      LOCATE 15,30 : PRINT SPACE$(34)
  622.      LOCATE 16,30 : PRINT SPACE$(34) 
  623.      COLOR 5,0   
  624.      GOSUB Farbdef
  625.         
  626.    Ein1:
  627.      GOSUB Vorhanden 
  628.      IF vorhand=1 THEN 
  629.      BEEP : COLOR 5,0 : LOCATE 10,25 : PRINT " ... keine Daten vorhanden  ...!!!             "
  630.      FOR z=0 TO 4000 : NEXT z : GOTO Anfang 
  631.      END IF
  632.      GOSUB Einlesenneu
  633.      
  634.    Datloschmaus:    
  635.       ON MOUSE GOSUB Datloschstart
  636.       COLOR 4,0 : LOCATE 24,34 : PRINT TIME$
  637.       MOUSE ON
  638.       GOTO Datloschmaus
  639.   
  640.    Datloschstart:   
  641.       Maus=MOUSE(0)
  642.       y=MOUSE(1) : x= MOUSE(2)
  643.       IF x>165 AND x<180 AND y> 73 AND y<224 THEN Datloschstart
  644.       IF x>166 AND x<180 AND y>226 AND y<370 THEN Nummereingeben     
  645.       IF x>166 AND x<180 AND y>371 AND y<552 THEN COLOR 0,0 : CLOSE 1 : GOTO Anfang
  646.       RETURN
  647.  
  648.   Datloschmaus1:
  649.       ON MOUSE GOSUB Datloschstart1
  650.       COLOR 4,0 : LOCATE 24,34 : PRINT TIME$
  651.       MOUSE ON
  652.       GOTO Datloschmaus1
  653.   
  654.    Datloschstart1:   
  655.       Maus=MOUSE(0)
  656.       y=MOUSE(1) : x= MOUSE(2)
  657.       IF x>166 AND x<180 AND y>226 AND y<370 THEN LOCATE 22,30 : COLOR 5,4 :PRINT "Nummer eingeben!" : GOTO Datloschmaus     
  658.       IF x>165 AND x<180 AND y> 73 AND y<224 THEN Loschen
  659.       RETURN
  660.         
  661.   Nummereingeben:
  662.       COLOR 7,0 
  663.       LOCATE  8,17 : PRINT " Es befinden sich"losch1" Datensätze im Speicher !"
  664.       LOCATE 10,16 : INPUT "Welcher Datensatz soll gelöscht werden(Nr.):",losch$         
  665.       losch=VAL(losch$) : IF losch<1 OR losch >losch1 THEN BEEP : GOTO Noexist
  666.       COLOR 5,4 : LOCATE 22,30 : PRINT "   vergiss es ! " : COLOR 5,7   
  667.       LOCATE 14,30 :z=LEN(Ftit$(losch)) : PRINT Ftit$(losch)+SPACE$(32-z)
  668.       LOCATE 15,30 : PRINT Fummer$(losch)+SPACE$(29)
  669.       LOCATE 16,30 : PRINT Bem$(losch)+SPACE$(15)
  670.       COLOR 0,0
  671.       LOCATE  8,17 : PRINT SPACE$(50)
  672.       LOCATE 10,16 : PRINT SPACE$(50)
  673.       daten=1
  674.       GOTO Datloschmaus1
  675.   Noexist:   
  676.      LOCATE 10,13 : PRINT" ... Datensatz mit dieser Nummer existiert nicht !   "
  677.      FOR v=0 TO 2500 : NEXT v                                
  678.      LOCATE 10,13 : PRINT SPACE$(57)                       
  679.      GOTO Nummereingeben
  680.      
  681.    Loschen:  
  682.      REM IF daten=0 THEN GOTO Datloschmaus
  683.      KILL "Video"
  684.      OPEN "Video" FOR APPEND AS 1
  685.      neu2=1
  686.      
  687.   Fertig1:
  688.     IF neu2=losch THEN neu2=neu2+1 
  689.      IF neu2>losch1 THEN 
  690.        CLOSE 1 
  691.        COLOR 5,7 
  692.        LOCATE 14,30 : PRINT SPACE$(34)
  693.        LOCATE 15,30 : PRINT SPACE$(34)
  694.        LOCATE 16,30 : PRINT SPACE$(34) 
  695.        COLOR 5,0   
  696.        COLOR 5,4 : LOCATE 22,31 : PRINT "Nummer eingeben" : COLOR 5,0  
  697.        daten=0 : losch1=losch1-1 : GOTO Datloschmaus
  698.        END IF
  699.       PRINT#1,Ftit$(neu2)
  700.       PRINT#1,Fummer$(neu2)
  701.       PRINT#1,Bem$(neu2)
  702.     neu2=neu2+1 : GOTO Fertig1
  703.    
  704.    Vorhanden:
  705.      OPEN "Video" FOR APPEND AS 1
  706.      IF LOF(1)=0 THEN vorhand=1 :ELSE vorhand=0
  707.      CLOSE 1 : RETURN
  708.   
  709.   Einlesenneu:   
  710.      OPEN "Video" FOR INPUT AS 1
  711.      losch1=0
  712.            
  713.   Ein2:  
  714.      losch1=losch1+1 
  715.      INPUT#1,Ftit$(losch1) : INPUT#1,Fummer$(losch1) : INPUT#1,Bem$(losch1)
  716.      IF EOF(1)=0 THEN Ein2
  717.      CLOSE 1 : RETURN
  718.   
  719.   Datsuch:
  720.      losch1=1 : daten=0
  721.      FOR x=0 TO 15
  722.      PALETTE x,0,0,0
  723.      NEXT x
  724.      COLOR 0,0 : CLS
  725.      LINE (110,10)-(510,42),6,bf
  726.      LINE (120,15)-(500,37),5,b
  727.      COLOR 5,4
  728.      LINE ( 66,162)-(556,181),4,bf 
  729.      LINE ( 70,179)-(550,164),5,b
  730.      LINE (222,179)-(222,164),5
  731.      LINE (368,179)-(368,164),5 
  732.      LOCATE 22,13 : PRINT "    Suchen   "
  733.      LOCATE 22,31 : PRINT "             "
  734.      LOCATE 22,50 : PRINT "zurück Hauptmenue"
  735.      
  736.      COLOR 4,6
  737.      LOCATE 4,33 :PRINT " DATEN SUCHEN!"
  738.      COLOR 5,7
  739.      LINE (100,95)-(540,135),5,bf
  740.      COLOR 7,5
  741.      LOCATE 14,16 : PRINT "Filmtitel   :"
  742.      LOCATE 15,16 : PRINT "Cassetten Nr:"
  743.      LOCATE 16,16 : PRINT "Bemerkung   :"
  744.      COLOR 5,7 
  745.      LOCATE 14,30 : PRINT SPACE$(34)
  746.      LOCATE 15,30 : PRINT SPACE$(34)
  747.      LOCATE 16,30 : PRINT SPACE$(34) 
  748.      COLOR 5,0   
  749.      GOSUB Farbdef
  750.       IF vorhand=1 THEN
  751.       BEEP
  752.       COLOR 5,0 : LOCATE 20,15 : PRINT  " ... he Baby ! Erst was eingeben dann suchen !!"
  753.       FOR z=0 TO 4000 : NEXT z : COLOR 0,0 : GOTO Anfang
  754.       END IF     
  755.       GOSUB Einlesenneu 
  756.    
  757.    Datsuchmaus:
  758.      ON MOUSE GOSUB Datsuchstart
  759.      COLOR 5,4 : LOCATE 22,34 : PRINT TIME$
  760.      MOUSE ON
  761.      GOTO Datsuchmaus
  762.   
  763.   Datsuchstart:   
  764.     Maus=MOUSE(0)
  765.     y=MOUSE(1) : x= MOUSE(2)
  766.     IF x>165 AND x<180 AND y> 73 AND y<224 THEN Suchroutine
  767.     IF x>166 AND x<180 AND y>226 AND y<370 THEN Datsuchmaus      
  768.     IF x>166 AND x<180 AND y>371 AND y<552 THEN CLOSE 1 : GOTO Anfang
  769.     RETURN
  770.   
  771.   Suchroutine:  
  772.     COLOR 5,0
  773.     LOCATE 10,18 : INPUT "  Welcher Filmtitel wird gesucht :",a$
  774.     such=0 : xy=0
  775.   
  776.   Suchroutine1:
  777.       FOR x=1 TO losch1
  778.       such=such+1
  779.       y=INSTR(Ftit$(such),a$)
  780.       IF y<>0 THEN GOSUB Schreib 
  781.       NEXT x
  782.       IF xy=0 THEN LOCATE 10,14 : PRINT "           ... keine passenden Datensätze !!!            "
  783.       IF xy>0 THEN LOCATE 10,14 : PRINT "           ... nichts passendes mehr da !!!              "
  784.       FOR t=0 TO 2500 : NEXT t : LOCATE 10,20 : PRINT  SPACE$(40)
  785.       LOCATE 19,30 : PRINT  SPACE$(18)
  786.       GOTO Datsuchmaus
  787.      
  788.   Schreib:
  789.      COLOR 5,0
  790.      xy=xy+1
  791.      LOCATE 19,30 : PRINT "Datensatznr.:"such
  792.      COLOR 5,7
  793.      LOCATE 14,30 : PRINT  Ftit$(x)
  794.      LOCATE 15,30 : PRINT Fummer$(x)
  795.      LOCATE 16,30 : PRINT Bem$(x)
  796.      COLOR 5,0
  797.      LOCATE 10,14 : PRINT  "Space zum weitersuchen, linke Maustaste zum beenden !!!                "
  798.      GOSUB Warte2 : GOTO Weiter :
  799.      
  800.    Warte2:
  801.      ON MOUSE GOSUB Suchfertig
  802.      MOUSE ON
  803.      IF INKEY$="" THEN Warte2
  804.      RETURN        
  805.    Suchfertig:
  806.      LOCATE 10,14 : PRINT SPACE$(55)
  807.      COLOR 5,7
  808.      LOCATE 14,30 : PRINT  SPACE$(30)
  809.      LOCATE 15,30 : PRINT  SPACE$(30)
  810.      LOCATE 16,30 : PRINT  SPACE$(30)
  811.      COLOR 5,0     
  812.      LOCATE 19,30 : PRINT SPACE$(35)
  813.      GOTO Datsuchmaus
  814.      RETURN
  815.  
  816.    Weiter:
  817.      COLOR 5,7
  818.      LOCATE 14,30 : PRINT  SPACE$(30)
  819.      LOCATE 15,30 : PRINT  SPACE$(30)
  820.      LOCATE 16,30 : PRINT  SPACE$(30)
  821.      COLOR 5,0
  822.      RETURN
  823.   
  824.    Allesende:
  825.      LINE (180,158)-(426,135),4,bf
  826.      LINE (180,158)-(426,135),5,b
  827.      COLOR 5,4
  828.      LOCATE 19,25 : PRINT "  JA    AUFHÖHREN    NEIN "
  829.      LINE (192,155)-(240,140),5,b  : LINE (348,155)-(406,140),5,b
  830.  
  831.  Endemaus:
  832.     ON MOUSE GOSUB Endestart
  833.     MOUSE ON
  834.     GOTO Endemaus
  835.   
  836.   Endestart:   
  837.     Maus=MOUSE(0)
  838.     y=MOUSE(1) : x= MOUSE(2)
  839.     IF x>141 AND x<156 AND y>195 AND y<242 THEN SYSTEM : REM `Ja`     
  840.     IF x>141 AND x<156 AND y>351 AND y<401 THEN Zuruck : REM `Nein`
  841.     RETURN
  842.    Zuruck:       
  843.     LINE (180,158)-(426,135),0,bf   
  844.     LINE ( 66,137)-(556,157),4,bf
  845.     LINE ( 70,140)-(550,154),5,b
  846.     LINE (222,140)-(222,154),5 
  847.     LINE (368,140)-(368,154),5
  848.     COLOR 7,4
  849.     LOCATE 19,12 : PRINT "Datei Sortieren"
  850.     LOCATE 19,30 : PRINT "    f r e i    "
  851.     LOCATE 19,51 : PRINT "Etikett drucken"
  852.     GOTO Maus
  853.  
  854.  Datsort:
  855.       FOR x=0 TO 15
  856.       PALETTE x,0,0,0
  857.       NEXT x 
  858.       COLOR 0,0 : CLS :  COLOR 4,6 
  859.       LINE (110,10)-(510,40),6,bf
  860.       LINE (120,15)-(500,35),5,b
  861.       LINE (110,10)-(510,42),6,bf
  862.       LINE (120,15)-(500,37),5,b 
  863.       LOCATE 4,30 : PRINT "  S O R T I E R E N "     
  864.       COLOR 5,4
  865.       LINE ( 66,162)-(556,181),4,bf 
  866.       LINE ( 70,179)-(550,164),5,b
  867.       LINE (222,179)-(222,164),5
  868.       LINE (368,179)-(368,164),5         
  869.       LINE ( 70,120)-(560,142),5,bf
  870.       LINE ( 70,120)-(560,142),7,b
  871.       COLOR 7,5 : LOCATE 17,15 : PRINT "INFO-FENSTER : "
  872.       COLOR 4,5 : LOCATE 17,30 : PRINT " Das Sortieren kann länger dauern !"
  873.       COLOR 5,4 : daten=0
  874.       LOCATE 22,13 : PRINT "Alphabetisch"
  875.       LOCATE 22,33 : PRINT "Nummerisch"
  876.       LOCATE 22,50 : PRINT "zurück Hauptmenue"
  877.       GOSUB Durcheinander : GOSUB Farbdef : GOSUB Vorhanden  
  878.       IF vorhand=1 THEN 
  879.       BEEP : COLOR 4,5 : LOCATE 17,30 : PRINT "     ... keine Daten vorhanden  !!!    "
  880.       FOR z=0 TO 4000 : NEXT z : GOTO Anfang 
  881.       END IF
  882.       GOSUB Einlesenneu 
  883.  
  884.   Sortmaus:
  885.      ON MOUSE GOSUB Sortstart
  886.      COLOR 4,0 : LOCATE 24,34 : PRINT TIME$
  887.      MOUSE ON
  888.      GOTO Sortmaus
  889.   
  890.   Sortstart:   
  891.      Maus=MOUSE(0)
  892.      y=MOUSE(1) : x= MOUSE(2)
  893.      IF x>165 AND x<180 AND y> 73 AND y<224 THEN Alphabetisch
  894.      IF x>166 AND x<180 AND y>226 AND y<370 THEN Nummerisch     
  895.      IF x>166 AND x<180 AND y>371 AND y<552 THEN CLOSE 1 : GOTO Anfang
  896.      RETURN
  897.  
  898.   Alphabetisch:
  899.      OPEN "video" FOR INPUT AS 1
  900.      x=0 : COLOR 4,5
  901.    Alpha:
  902.      INPUT#1,Ftit$(x)
  903.      INPUT#1,Fummer$(x)
  904.      INPUT#1,Bem$(x)
  905.      x=x+1
  906.      LOCATE 17,31 : PRINT " ...lese Datensatz Nr."x"             "
  907.      IF EOF(1)=0 THEN Alpha  
  908.      CLOSE 1
  909.      losch1=x-1 : x=0
  910.      FOR sort1=0 TO losch1
  911.      FOR sort2=sort1+1 TO losch1
  912.       IF UCASE$(Ftit$(sort1))>UCASE$(Ftit$(sort2)) THEN
  913.        SWAP Ftit$(sort1),Ftit$(sort2)
  914.         SWAP Fummer$(sort1),Fummer$(sort2)
  915.        SWAP Bem$(sort1),Bem$(sort2)
  916.       END IF
  917.     LOCATE 17,31 : PRINT " ...sortiere Datensatz Nr."sort2"      "
  918.     NEXT sort2
  919.     NEXT sort1
  920.     OPEN "video" FOR OUTPUT AS 1
  921.     x=0
  922.   Alpha1:
  923.     PRINT#1,Ftit$(x)
  924.     PRINT#1,Fummer$(x)
  925.     PRINT#1,Bem$(x)
  926.     x=x+1
  927.     LOCATE 17,31 : PRINT "Schreibe Datensatz Nr."x" zurück !     "
  928.     IF x<losch1+1 THEN Alpha1
  929.     CLOSE 1
  930.     LOCATE 17,31 : PRINT "  SORTIEREN NACH ALPHABET BEENDET !  "
  931.     GOTO Sortmaus     
  932.  
  933.   Nummerisch:
  934.      OPEN "video" FOR INPUT AS 1
  935.      x=0 : COLOR 4,5
  936.    Numm:
  937.      INPUT#1,Ftit$(x)
  938.      INPUT#1,Fummer$(x)
  939.      INPUT#1,Bem$(x)
  940.      x=x+1
  941.      LOCATE 17,31 : PRINT " ...lese Datensatz Nr."x"          "
  942.      IF EOF(1)=0 THEN Numm  
  943.      CLOSE 1
  944.      losch1=x-1 : x=0
  945.      FOR sort1=0 TO losch1
  946.      FOR sort2=sort1+1 TO losch1
  947.       IF UCASE$(Fummer$(sort1))>UCASE$(Fummer$(sort2)) THEN
  948.        SWAP Ftit$(sort1),Ftit$(sort2)
  949.         SWAP Fummer$(sort1),Fummer$(sort2)
  950.        SWAP Bem$(sort1),Bem$(sort2)
  951.       END IF
  952.     LOCATE 17,31 : PRINT " ...sortiere Datensatz Nr."sort2"      "
  953.     NEXT sort2
  954.     NEXT sort1
  955.     OPEN "video" FOR OUTPUT AS 1
  956.     x=0
  957.   Numm1:
  958.     PRINT#1,Ftit$(x)
  959.     PRINT#1,Fummer$(x)
  960.     PRINT#1,Bem$(x)
  961.     x=x+1
  962.     LOCATE 17,31 : PRINT "Schreibe Datensatz Nr."x" zurück !    "
  963.     IF x<losch1+1 THEN Numm1
  964.     CLOSE 1
  965.     LOCATE 17,31 : PRINT "SORTIEREN NACH CASSETTEN NR. BEENDET !"
  966.     GOTO Sortmaus     
  967.  
  968.  Etidruck:
  969.       FOR x=0 TO 15
  970.       PALETTE x,0,0,0
  971.       NEXT x 
  972.       COLOR 0,0 : CLS :  COLOR 4,6 
  973.       LINE (110,10)-(510,42),6,bf
  974.       LINE (120,15)-(500,37),5,b 
  975.       LOCATE 4,28 : PRINT "  Etiketten Druck "     
  976.       
  977.       LINE (125,57)-(205,77),10,bf : REM E 120
  978.       LINE (125,57)-(205,77), 7,b
  979.       LINE (268,57)-(348,77),11,bf : REM E 180
  980.       LINE (268,57)-(348,77),7,b
  981.       LINE (411,57)-(491,77),12,bf : REM E 240
  982.       LINE (411,57)-(491,77),7,b
  983.       COLOR 7,10
  984.       LOCATE 9,18 : PRINT " E 120 "
  985.       COLOR 7,11
  986.       LOCATE 9,36 : PRINT " E 180 "
  987.       COLOR 7,12
  988.       LOCATE 9,54 : PRINT " E 240 "
  989.       
  990.       LINE ( 66,162)-(556,181),4,bf 
  991.       LINE ( 70,179)-(550,164),5,b
  992.       LINE (222,179)-(222,164),5
  993.       LINE (368,179)-(368,164),5         
  994.       LINE ( 70, 85)-(560,130),7,bf
  995.       LINE ( 70, 85)-(560,130),5,b
  996.       COLOR 5,7
  997.       LOCATE 13,14 : PRINT "  Filmtitel     : ................................"
  998.       LOCATE 15,14 : PRINT "  Cassetten Nr. : ... "
  999.       COLOR 5,4 
  1000.       LOCATE 22,12 : PRINT "Etikett Drucken"
  1001.       LOCATE 22,31 : PRINT "Nummer eingeben"
  1002.       LOCATE 22,50 : PRINT "zurück Hauptmenue"
  1003.       GOSUB Farbdef : GOSUB Vorhanden  
  1004.       IF vorhand=1 THEN 
  1005.       BEEP : COLOR 4,5 : LOCATE 17,30 : PRINT "     ... keine Daten vorhanden  !!!    "
  1006.       FOR z=0 TO 4000 : NEXT z : GOTO Anfang 
  1007.       END IF
  1008.       GOSUB Einlesenneu 
  1009.  
  1010.   Etimaus:
  1011.      ON MOUSE GOSUB Etistart
  1012.      COLOR 4,0 : LOCATE 24,34 : PRINT TIME$
  1013.      MOUSE ON
  1014.      GOTO Etimaus
  1015.   
  1016.   Etistart:   
  1017.      Maus=MOUSE(0)
  1018.      y=MOUSE(1) : x= MOUSE(2)
  1019.      IF x>165 AND x<180 AND y> 73 AND y<224 THEN Etimaus
  1020.      IF x>166 AND x<180 AND y>226 AND y<370 THEN Nummerein     
  1021.      IF x>166 AND x<180 AND y>371 AND y<552 THEN CLOSE 1 : GOTO Anfang
  1022.      IF x> 59 AND x< 78 AND y>129 AND y<205 THEN E120
  1023.      IF x> 59 AND x< 78 AND y>273 AND y<348 THEN E180
  1024.      IF x> 59 AND x< 78 AND y>415 AND y<492 THEN E240
  1025.      RETURN
  1026.   
  1027.   Etimaus1:
  1028.      ON MOUSE GOSUB Etistart1
  1029.      COLOR 4,0 : LOCATE 24,34 : PRINT TIME$
  1030.      MOUSE ON
  1031.      GOTO Etimaus1
  1032.   
  1033.   Etistart1:   
  1034.      Maus=MOUSE(0)
  1035.      y=MOUSE(1) : x= MOUSE(2)
  1036.      IF x>165 AND x<180 AND y> 73 AND y<224 THEN Etikett
  1037.      IF x>166 AND x<180 AND y>226 AND y<370 THEN Falsch     
  1038.      IF x>166 AND x<180 AND y>371 AND y<552 THEN CLOSE 1 : GOTO Anfang
  1039.      IF x> 59 AND x< 78 AND y>129 AND y<205 THEN E120
  1040.      IF x> 59 AND x< 78 AND y>273 AND y<348 THEN E180
  1041.      IF x> 59 AND x< 78 AND y>415 AND y<492 THEN E240   
  1042.      RETURN
  1043.  
  1044.   E120:
  1045.      PALETTE 10,1,0,0
  1046.      PALETTE 11,0,0,0
  1047.      PALETTE 12,0,0,0
  1048.      COLOR 5,7
  1049.      LOCATE 14,58 : PRINT " E 120 "
  1050.      wert=1 : IF eingegeben=0 THEN Etimaus :ELSE Etimaus1
  1051.   E180:
  1052.      PALETTE 10,0,0,0
  1053.      PALETTE 11,1,0,0
  1054.      PALETTE 12,0,0,0  
  1055.      COLOR 5,7
  1056.      LOCATE 14,58 : PRINT " E 180 "
  1057.      wert=2 : IF eingegeben=0 THEN Etimaus :ELSE Etimaus1
  1058.   E240:
  1059.      PALETTE 10,0,0,0
  1060.      PALETTE 11,0,0,0
  1061.      PALETTE 12,1,0,0
  1062.      COLOR 5,7
  1063.      LOCATE 14,58 : PRINT " E 240 "
  1064.      wert=3 : IF eingegeben=0 THEN Etimaus :ELSE Etimaus1
  1065.  
  1066.   Nummerein:
  1067.      eingegeben=1
  1068.      COLOR 7,0 
  1069.      LOCATE 18,17 : PRINT " Es befinden sich"losch1" Datensätze im speicher !"
  1070.      LOCATE 19,16 : INPUT "Welcher Datensatz soll gedruckt werden(Nr.):",losch          
  1071.      IF losch<1 OR losch >losch1 THEN BEEP : GOTO Nummerein
  1072.      COLOR 5,4 : LOCATE 22,29 : PRINT "falscher Datensatz" : COLOR 5,7   
  1073.      LOCATE 13,32 : z=LEN(Ftit$(losch)) : PRINT Ftit$(losch)+SPACE$(32-z)
  1074.      LOCATE 15,32 : PRINT Fummer$(losch)+SPACE$(29)
  1075.      COLOR 0,0
  1076.      LOCATE 18,17 : PRINT SPACE$(50)
  1077.      LOCATE 19,16 : PRINT SPACE$(50)
  1078.      GOTO Etimaus1
  1079.      
  1080.    Falsch:
  1081.     COLOR 5,4
  1082.     LOCATE 22,29 : PRINT "  Nummer eingeben "
  1083.     GOTO Etimaus
  1084.     
  1085.  Etikett:
  1086.     OPEN "par:" FOR OUTPUT AS 2
  1087.     a$=" " : x=LEN(Ftit$(losch)) : z=30-x
  1088.     FOR w=0 TO z : Ftit$(losch)=Ftit$(losch)+a$ : NEXT w    
  1089.      IF wert=0 THEN a$="-----"
  1090.      IF wert=1 THEN a$="E 120"
  1091.      IF wert=2 THEN a$="E 180"
  1092.      IF wert=3 THEN a$="E 240"
  1093.     PRINT#2,"---------------------------------------------------"
  1094.     PRINT#2,"|  Filmtitel    : "Ftit$(losch)" |" 
  1095.     PRINT#2,"|-------------------------------------------"a$"-|"
  1096.     PRINT#2,"|  Cassetten Nr.: "Fummer$(losch)"                             |"
  1097.     PRINT#2,"---------------------------------------------------"
  1098.     CLOSE 2 : eingegeben=0
  1099.     GOTO Falsch
  1100.  
  1101.   Durcheinander:
  1102.     LINE (130,60)-(490,107),8,bf
  1103.     LINE (130,60)-(490,107),7,b
  1104.     LINE (129,59)-(491,106),7,b
  1105.     COLOR 5,8
  1106.     LOCATE  9,21 : PRINT "    A B C D E F G H I J K L M N M O"
  1107.     LOCATE 10,21 : PRINT "    P Q R S T U V W X Y Z 1 2 3 4 5"
  1108.     LOCATE 11,21 : PRINT "    6 7 8 9 0 å ° © ® þ ¤ µ ¡ ø ¶ ["
  1109.     LOCATE 12,21 : PRINT "    æ ß ð £ ; ' # ] ± × ª º ­ ¸ , ."
  1110.     LOCATE 13,21 : PRINT "    ¹ @ ³ ° ¼ ½ ¾ · « » - = \  ‚ ƒ"
  1111.     RETURN
  1112.  
  1113.  ente:
  1114.     LINE (100,206)-(520,235),7,bf : i=4 : ente=0
  1115.     LINE (100,206)-(520,235),5,b    
  1116.     COLOR 6,7
  1117.     LOCATE 27,14 : PRINT "Das Programm kann nur am OFF Schalter des Recorders"
  1118.     LOCATE 28,14 : PRINT "beendet werden !!"  
  1119.     LINE (420,221)-(450,233),4,b
  1120.   
  1121.   Entemaus:
  1122.     ON MOUSE GOSUB Entestart
  1123.      IF ente=1 THEN
  1124.       ente=0
  1125.       LINE (100,206)-(520,235),0,bf 
  1126.       RETURN
  1127.      END IF
  1128.     i=+i+1 : IF i=15 THEN i=4
  1129.     COLOR i,7
  1130.     LOCATE 29,54 : PRINT "OK!"
  1131.     MOUSE ON
  1132.     GOTO Entemaus
  1133.  
  1134.   Entestart:   
  1135.     Maus=MOUSE(0)
  1136.     y=MOUSE(1) : x= MOUSE(2)
  1137.     IF x>221 AND x<233 AND y>421 AND y<451 THEN Haupt     
  1138.     RETURN
  1139.   
  1140.   Haupt:
  1141.     LINE (100,206)-(520,235),0,bf : ente=1
  1142.     RETURN
  1143.    
  1144.     
  1145.  
  1146.  
  1147.  
  1148.   
  1149.